home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlab_init < prev    next >
Text File  |  1995-10-08  |  283b  |  27 lines
  1. //
  2. // .rlab
  3. //
  4.  
  5. // Calculate pi
  6.  
  7. pi = atan(1.0)*4.0;
  8.  
  9. // Calculate machine epsilon
  10.  
  11. epsilon = function() 
  12. {
  13.   eps = 1.0;
  14.   while((eps + 1.0) != 1.0) 
  15.   {
  16.     eps = eps/2.0;
  17.   }
  18.   return 2*eps;
  19. };
  20.  
  21. eps = epsilon();
  22.  
  23. // user choices and initialization
  24. cd ("<Rlab$Dir>");
  25. rfile plplot
  26.  
  27.